home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / budget.arc / COMPOUND.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-26  |  768 b   |  26 lines
  1. 10  CLS:DEFDBL A-Z
  2. 20  KEY OFF
  3. 30  PRINT "CONTINUOUS INTEREST COMPOUNDING"
  4. 40  PRINT :I=0 :N=0 :D=0
  5. 50  PRINT "ENTER THE ANNUAL INTEREST RATE";
  6. 60  PRINT " TO BE PAID ON THE ACCOUNT"
  7. 70  INPUT I
  8. 80  IF I<=0 THEN 50
  9. 90  PRINT "ENTER THE NUMBER OF YEARS AND FRACTIONS"
  10. 100  PRINT " OF YEARS THAT INTEREST WILL ACCRUE"
  11. 110  INPUT N
  12. 120  IF N<=0 THEN 90
  13. 130  PRINT "ENTER YOUR INITIAL DEPOSIT"
  14. 140  INPUT D
  15. 150  IF D<=0 THEN 130
  16. 160  PRINT
  17. 170  PRINT "WITH CONTINUOUS COMPOUNDING A DEPOSIT OF $"; D
  18. 180  PRINT "GROWS IN";N;"YEARS AT";I;"% TO";
  19. 190  PRINT USING "$$#,###,###,###,###.##"; D*EXP(I/100*N)
  20. 200  PRINT
  21. 210  PRINT "WOULD YOU LIKE TO RERUN PROGRAM USING NEW DATA (Y/N)?"
  22. 220  Z$=INKEY$:IF Z$="" THEN 220
  23. 230  IF Z$="Y" OR Z$="y" THEN 40
  24. 240  IF Z$<>"N" AND Z$<>"n" THEN 210
  25. 250  END
  26.